home *** CD-ROM | disk | FTP | other *** search
/ Creating Shockwave Web Pages / SHOCKED.bin / software demos / soundedit 16 v2 / soundeditª 16 version 2 demo / AppleScript™.rsrc / bin.rsrc_proc_0_AS Gestalt Handler.txt < prev    next >
Text File  |  1994-08-02  |  1KB  |  28 lines
  1. start:
  2. 00000000  4E56 0000                link       A6, 0
  3. 00000004  226E 0008                movea.l    A1, [A6 + 0x8]
  4. 00000008  202E 000C                move.l     D0, [A6 + 0xC]
  5. 0000000C  0480 6173 6372           subi.l     D0, 0x61736372 /* 'ascr' */
  6. 00000012  6706                     beq        +0x8 /* 0000001A */
  7. 00000014  5980                     subq.l     D0, 4
  8. 00000016  670C                     beq        +0xE /* 00000024 */
  9. 00000018  6016                     bra        +0x18 /* 00000030 */
  10. label0000001A:
  11. 0000001A  7001                     moveq.l    D0, 0x01
  12. 0000001C  2280                     move.l     [A1], D0
  13. 0000001E  426E 0010                clr.w      [A6 + 0x10]
  14. 00000022  6016                     bra        +0x18 /* 0000003A */
  15. label00000024:
  16. 00000024  22BC 0110 0110           move.l     [A1], 0x1100110
  17. 0000002A  426E 0010                clr.w      [A6 + 0x10]
  18. 0000002E  600A                     bra        +0xC /* 0000003A */
  19. label00000030:
  20. 00000030  7000                     moveq.l    D0, 0x00
  21. 00000032  2240                     movea.l    A1, D0
  22. 00000034  3D7C EA51 0010           move.w     [A6 + 0x10], 0xEA51
  23. label0000003A:
  24. 0000003A  4E5E                     unlink     A6
  25. 0000003C  205F                     movea.l    A0, [A7]+
  26. 0000003E  504F                     addq.w     A7, 8
  27. 00000040  4ED0                     jmp        [A0]
  28.